home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DOS.SWG / 0010_Reboot System Warm-Cold.pas < prev    next >
Pascal/Delphi Source File  |  1993-06-22  |  3KB  |  70 lines
  1. ===========================================================================
  2.  BBS: Canada Remote Systems
  3. Date: 06-15-93 (11:09)             Number: 8831
  4. From: GREG ESTABROOKS              Refer#: NONE
  5.   To: KURT TAN                      Recvd: NO  
  6. Subj: REBOOT                         Conf: (58) PASCAL
  7. ---------------------------------------------------------------------------
  8. KT>Can anybody tell me how to reboot with Turbo Pascal?
  9.  
  10.         Below are the routines I use to reboot the system.
  11.         Hope they help ya.
  12.  
  13. {********************************************************************}
  14. PROGRAM RebootSys;              { June 15/93, Greg Estabrooks        }
  15. USES CRT;                       { Writeln,Readkey,Clrscr             }
  16. VAR
  17.    CH :CHAR;                    { Hold Boot Choice                   }
  18.  
  19. PROCEDURE WarmBoot;
  20.                  { Routine to cause system to do a WARM Boot         }
  21.  
  22.  
  23. BEGIN
  24.   Inline(
  25.         $FB/                  { STI                                  }
  26.         $B8/00/00/            { MOV   AX,0000                        }
  27.         $8E/$D8/              { MOV   DS,AX                          }
  28.         $B8/$34/$12/          { MOV   AX,1234                        }
  29.         $A3/$72/$04/          { MOV   [0472],AX                      }
  30.         $EA/$00/$00/$FF/$FF); { JMP   FFFF:0000                      }
  31. END;
  32.  
  33. PROCEDURE ColdBoot;
  34.                      { Routine to cause system to do a COLD Boot     }
  35. BEGIN
  36.   Inline(
  37.         $FB/                  { STI                                  }
  38.         $B8/01/00/            { MOV   AX,0001                        }
  39.         $8E/$D8/              { MOV   DS,AX                          }
  40.         $B8/$34/$12/          { MOV   AX,1234                        }
  41.         $A3/$72/$04/          { MOV   [0472],AX                      }
  42.         $EA/$00/$00/$FF/$FF); { JMP   FFFF:0000                      }
  43. END;
  44.  
  45. BEGIN
  46.   Clrscr;                       { Clear the screen                      }
  47.                                 { Ask for which type of boot to be used }
  48.   Writeln('Would You like to do a [W]arm or [C]old Boot? ');
  49.   CH := Readkey;                { Get Users Choice,                     }
  50.  
  51.   CASE UpCase( CH ) OF
  52.      'W'    : BEGIN
  53.                 Writeln('Doing a Warm Boot ');
  54.                 WarmBoot;      { Call warm Reboot procedure             }
  55.               END;
  56.      'C'    : BEGIN
  57.                 Writeln('Doing a Cold Boot ');
  58.                 ColdBoot;      { Call cold reboot procedure             }
  59.               END;
  60.   Else                         { Else don't reboot at all               }
  61.     Writeln('Not Rebooting!');
  62.   END;
  63. END.
  64. {***********************************************************************}
  65.  
  66. Greg Estabrooks <<Message Entered on 06-15-93 at 09am>>
  67. ---
  68.  ■ OLX 2.1 TD ■ Beer. It's not just for breakfast anymore!
  69.  ■ RoseMail 2.10ß: NANET: VE1EI BBS, Halifax NS, (902)-868-2475
  70.